Visual Basic Source Code

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / simon1 / simon1.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1995-05-08 | 10.9 KB | 402 lines

VERSION 2.00 Begin Form Form1 BackColor = &H00FFFFFF& BorderStyle = 0 'None Caption = "Simon V1.01" ClientHeight = 4605 ClientLeft = 1920 ClientTop = 1695 ClientWidth = 6750 ForeColor = &H00008080& Height = 5295 Icon = SIMON1.FRX:0000 Left = 1860 LinkMode = 1 'Source LinkTopic = "Form1" ScaleHeight = 4605 ScaleWidth = 6750 Top = 1065 Width = 6870 Begin OptionButton Option3 Caption = "Fast" Height = 375 Left = 4320 TabIndex = 14 Top = 2880 Value = -1 'True Width = 975 End Begin HScrollBar HScroll1 Height = 375 LargeChange = 4 Left = 360 Max = 132 Min = 1 TabIndex = 9 Top = 2640 Value = 1 Width = 3015 End Begin OptionButton Option2 Caption = "Medium" Height = 375 Left = 4320 TabIndex = 13 Top = 2520 Width = 975 End Begin OptionButton Option1 Caption = "Slow" Height = 375 Left = 4320 TabIndex = 12 Top = 2160 Width = 975 End Begin Timer Timer3 Interval = 1000 Left = 5880 Top = 1920 End Begin PictureBox Picture5 BackColor = &H00000000& Height = 135 Left = 360 ScaleHeight = 105 ScaleWidth = 2865 TabIndex = 19 Top = 1920 Width = 2895 End Begin PictureBox Picture2 BorderStyle = 0 'None Height = 735 Left = 4440 Picture = SIMON1.FRX:0302 ScaleHeight = 735 ScaleWidth = 735 TabIndex = 16 Top = 1440 Width = 735 End Begin Timer Timer2 Interval = 1000 Left = 5880 Top = 1320 End Begin PictureBox Picture1 BackColor = &H00FF0000& Height = 735 Index = 5 Left = 2280 ScaleHeight = 705 ScaleWidth = 825 TabIndex = 5 Top = 1200 Width = 855 End Begin PictureBox Picture1 BackColor = &H00FF00FF& Height = 735 Index = 4 Left = 1320 ScaleHeight = 705 ScaleWidth = 705 TabIndex = 4 Top = 1200 Width = 735 End Begin PictureBox Picture1 BackColor = &H0000FF00& Height = 735 Index = 3 Left = 360 ScaleHeight = 705 ScaleWidth = 705 TabIndex = 3 Top = 1200 Width = 735 End Begin PictureBox Picture7 BackColor = &H00000000& Height = 135 Left = 360 ScaleHeight = 105 ScaleWidth = 2745 TabIndex = 21 Top = 1080 Width = 2775 End Begin Timer Timer1 Enabled = 0 'False Interval = 600 Left = 5880 Top = 720 End Begin CommandButton Quit_button Caption = "&Quit" Height = 495 Left = 4800 TabIndex = 7 Top = 720 Width = 735 End Begin CommandButton Play_Button Caption = "&Play" Height = 495 Left = 3840 TabIndex = 6 Top = 720 Width = 735 End Begin PictureBox Picture6 BackColor = &H00000000& Height = 1575 Left = 3120 ScaleHeight = 1545 ScaleWidth = 105 TabIndex = 20 Top = 360 Width = 135 End Begin PictureBox Picture1 BackColor = &H00004040& ForeColor = &H00004040& Height = 735 Index = 2 Left = 2280 ScaleHeight = 705 ScaleWidth = 825 TabIndex = 2 Top = 360 Width = 855 End Begin PictureBox Picture9 BackColor = &H00000000& Height = 1575 Left = 2040 ScaleHeight = 1545 ScaleWidth = 225 TabIndex = 23 Top = 360 Width = 255 End Begin PictureBox Picture1 BackColor = &H000080FF& Height = 735 Index = 1 Left = 1320 ScaleHeight = 705 ScaleWidth = 705 TabIndex = 1 Top = 360 Width = 735 End Begin PictureBox Picture8 BackColor = &H00000000& Height = 1575 Left = 1080 ScaleHeight = 1545 ScaleWidth = 225 TabIndex = 22 Top = 360 Width = 255 End Begin PictureBox Picture1 BackColor = &H000000FF& Height = 735 Index = 0 Left = 360 ScaleHeight = 705 ScaleWidth = 705 TabIndex = 0 Top = 360 Width = 735 End Begin PictureBox Picture4 BackColor = &H00000000& Height = 1695 Left = 240 ScaleHeight = 1665 ScaleWidth = 105 TabIndex = 18 Top = 360 Width = 135 End Begin PictureBox Picture3 BackColor = &H00000000& Height = 135 Left = 240 ScaleHeight = 105 ScaleWidth = 2985 TabIndex = 17 Top = 240 Width = 3015 End Begin Label Label4 Caption = "Label4" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 495 Left = 240 TabIndex = 15 Top = 3840 Width = 6495 End Begin Label Label2 Caption = "Label2" Height = 375 Left = 1200 TabIndex = 10 Top = 3240 Width = 1455 End Begin Label Label6 BorderStyle = 1 'Fixed Single Caption = "ma" Height = 375 Left = 5760 TabIndex = 25 Top = 3000 Width = 495 End Begin Label Label5 Caption = "Score" Height = 255 Left = 5760 TabIndex = 24 Top = 2640 Width = 615 End Begin Label Label3 BackColor = &H00FFFFFF& Caption = "Level selection" Height = 255 Left = 1080 TabIndex = 11 Top = 2160 Width = 1455 End Begin Label Label1 Caption = "Simon Version 1.01" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 13.5 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 495 Left = 3480 TabIndex = 8 Top = 120 Width = 2775 End Begin Menu about Caption = "&About" End Begin Menu help Caption = "&Help" End Sub about_Click () Load aboutbox aboutbox.Show modal End Sub Sub help_Click () Load form3 form3.Show modal End Sub Sub HScroll1_Change () lev = hscroll1.value form1.label2.caption = "Level: " + Str$(lev) End Sub Sub Option1_Click () t_int = 1000 End Sub Sub Option2_Click () t_int = 600 End Sub Sub Option3_Click () t_int = 100 End Sub Sub Picture1_Click (Index As Integer) play_sounds (Index) If startup = 0 Then Exit Sub uarray(r) = Index If uarray(r) <> parray(r) Then r = lev - 1 Else match = stepper End If r = r + 1 If r = lev Then won = True For j = 0 To lev - 1 If uarray(j) <> parray(j) Then won = False Exit For End If form1.timer3.enabled = True Else If r = stepper Then i = 0 form1.label6.caption = Str$(match) form1.timer2.enabled = True End If End If End Sub Sub Play_Button_Click () match = 0 form1.label4.caption = "" form1.label6.caption = Str$(match) startup = 1 form1.hscroll1.enabled = False form1.option1.enabled = False form1.option2.enabled = False form1.option3.enabled = False For i = 0 To 132 parray(i) = (5 * Rnd) uarray(i) = -1 Next i i = 0 stepper = 0 r = 0 match = 0 form1.timer1.interval = t_int form1.timer1.enabled = True End Sub Sub Quit_button_Click () End Sub Sub Timer1_Timer () play_sounds (parray(i)) If i = stepper Then stepper = stepper + 1 form1.timer1.enabled = False r = 0 End If i = i + 1 End Sub Sub Timer2_Timer () form1.timer2.enabled = False form1.timer1.enabled = True End Sub Sub Timer3_Timer () If won = True Then form1.label4.caption = "Hurrah! You won! " form1.label4.caption = "Sorry! You lost! " If match = lev Then match = match - 1 End If startup = 0 form1.label6.caption = Str$(match) form1.label4.caption = form1.label4.caption + " You matched " + Str$(match) + " out of " + Str$(lev) For n = 1 To 20: play_sounds (Rnd * 5): Next form1.hscroll1.enabled = True form1.option1.enabled = True form1.option2.enabled = True form1.option3.enabled = True form1.timer3.enabled = False End Sub